*Paper: Fiscal Rules, Corruption and Electoral Accountability - Replication Files

clear all
cap log close 
set more off


**Global files
global folder "/Users/tommasogiommoni/Dropbox/Determinants of corruption/Stability pact and corruption/Replication files JOP"


********************************************************************************
****----						Dataset open 					    	----**** 
********************************************************************************

use "$folder/Data/TableA10.dta", clear

**-- Global

global controls7 proportion_female_Elected_lag av_education_Elected_lag av_age_Elected_lag  victory_margin_lag term_limit_lag 
global controls7_int  c.proportion_female_Elected_lag##i.anno c.av_education_Elected_lag##i.anno c.av_age_Elected_lag##i.anno c.victory_margin_lag##i.anno  c.term_limit_lag##i.anno
global controls8_int  c.proportion_female_Elected_lag##i.anno c.av_age_Elected_lag##i.anno

**-- Panel dataset

xtset codcom anno
fvset base 2012 anno

********************************************************************************
****----						Analysis 					    		----**** 
********************************************************************************

****---- Corruption measures non-standardized (columns 1-2) ----****

qui reghdfe corruption_PC S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg1
qui reghdfe corruption_exp_log S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg2

****---- Corruption per spending in absolute value (column 3) ----****

qui reghdfe corruption_exp_sd S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg3

****---- Corruption over number of councillors (column 4) ----****

qui reghdfe corruption_abs_Pcons_z S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg4

****---- Corruption max (columns 5-6) ----****

qui reghdfe corruption_max_PC_sd S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg5
qui reghdfe corruption_max_exp_sd S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg6

****---- Corruption binary (column 7) ----****

qui reghdfe corruption_abs_binary S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg7

****---- Analysis on neighbouring cities (column 8) ----****

qui reghdfe corruption_PC_sd S_2##T P i.region_year $controls7_int if FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA") & S_2!=., absorb(codcom) vce(cluster codcom)
est store reg8

****---- Analysis on police spending (column 9) ----****

qui reghdfe Tot_exp_police_1_PC S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg9

****---- Analysis on other corruption_abss (column 10) ----****

qui reghdfe tot_committed S##T P i.region_year $controls7_int if abs(P)<2500 & FURs==0 & (special_region==0 | regione=="SICILIA" | regione=="SARDEGNA"), absorb(codcom) vce(cluster codcom)
est store reg10

****---- Table ----****

esttab reg1 reg2 reg3 reg4 reg5 reg6 reg7 reg8 reg9 reg10 using "$folder/Tables/TableA10.tex", compress keep(1.S#1.T 1.S_2#1.T) se r2 staraux collabels(, none) ml(,none) cells(b(star fmt (%9.3f)) se(par)) star(* 0.10 ** 0.05 *** 0.01) replace
